home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / listfile.zip / LISTFILE.WCX (.txt) < prev   
Wildcat! WCX  |  1995-04-13  |  3KB  |  213 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2797 bytes  01/29/123  04:30:20pm
  3. '! Code Segment Size  :1814 bytes
  4. '! Data Segment Size  :4540 bytes
  5. '! String Segment Size:983 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Declare Function Func1266(i65534 As Integer) As Integer
  9. '!      Declare Function Func1738 As String
  10.  
  11.       Dim s4463(0 To 10) As String
  12.       Dim s4511 As String
  13.       Dim s4515 As String
  14.       Dim s4519 As String
  15.       Dim s4523 As String
  16.       Dim s4530 As String
  17.       Dim s4534 As String
  18.       Dim i4538 As Integer
  19.  
  20.       Dim i65530_ As Integer '! Temporary
  21.       Dim s65532_ As String
  22.  
  23.       s4511 = "Single Line Display"
  24.       s4515 = "Double Line Display"
  25.       s4519 = "Full Files Listings"
  26.       s4523 = "ANSI File Lister"
  27.       s4530 = ProgPath + "listfile.bbs"
  28.       If Not Exists(s4530) Then
  29.         Print "Display File Not Available.  Please Notify The Sysop"
  30.         WaitEnter 
  31.       Else
  32.   123   DisplayTextFile(s4530)
  33.       End If
  34.   131 If User.FileDisplay = 0 Then
  35.         Print Spc(10) + "@0F@Your File Display is currently@0E@ " + s4511
  36.       Else
  37.   178   If User.FileDisplay = 1 Then
  38.           Print Spc(10) + "@0F@Your File Display is currently@0E@ " + s4515
  39.         Else
  40.   226     If User.FileDisplay = 2 Then
  41.             Print Spc(10) + "@0F@Your File Display is currently@0E@ "; s4519
  42.           Else
  43.   274       Print Spc(10) + "@0F@Your File Display is currently@0E@ "; s4523
  44.           End If
  45.         End If
  46.       End If
  47.   296 Print
  48.       If Not InputYesNo(Spc(10) + "@0F@Would You Like To Change Your FileList Mode?@0E@ ", 0) Then
  49.         GoTo 1176
  50.       Else
  51.   334   If RIPDetected Then
  52.           User.ScreenDisplay = 2
  53.         End If
  54.   355   If User.ScreenDisplay = 0 Or User.ScreenDisplay = 2 Then
  55.   390     Do While Len(s4534) = 0
  56.             Cls 
  57.             Print Spc(40) + "Copyright 1995 - SouthWest Consulting"
  58.             Print
  59.             Print
  60.             Print
  61.             Print
  62.             Print
  63.             Print Spc(6) + "You Will Be Changing Item #12 On [Y]our Settings"
  64.             Print
  65.             Print "[1]Single Line, [2]Double Line" + ", [3]Full Display, [4]ANSI Lister" + ", [Q]uit"
  66.             Print
  67.             Print Spc(6) + "Please Choose 1-4, or Q  and Press RETURN  ";
  68.             Input s4534
  69.             s65532_ = UCase(s4534)
  70.             If s65532_ = "1" Then
  71.               User.FileDisplay = 0
  72.             Else
  73.   545         If s65532_ = "2" Then
  74.                 User.FileDisplay = 1
  75.               Else
  76.   580           If s65532_ = "3" Then
  77.                   User.FileDisplay = 2
  78.                 Else
  79.   615             If s65532_ = "4" Then
  80.                     User.FileDisplay = 3
  81.                   Else
  82.   650               If s65532_ = "Q" Then
  83.                       Print
  84.                       Print
  85.                       Print "@0F@ Ok, Thanks Anyway....."
  86.                       Print
  87.                     Else
  88.   688                 Print
  89.                       Print
  90.                       Print Spc(5) + "No, that wasn't a choice..."
  91.                       Beep 
  92.                       WaitEnter 
  93.                       Cls 
  94.                       GoTo 390
  95.                     End If
  96.                   End If
  97.                 End If
  98.               End If
  99.             End If
  100.   723     Loop
  101.   729     GoTo 1176
  102.         Else
  103.   741     GoTo 747
  104.         End If
  105.   747   Cls 
  106.         Print Spc(40) + "@08@Copyright 1995 - SouthWest Consulting@0E@"
  107.         Print
  108.         Print
  109.         Print
  110.         Print
  111.         Print
  112.         Print Spc(6) + "You Will Be Changing @0F@Item #12 @0E@On @0F@[@0E@Y@0F@]@0E@our Settings"
  113.         Print
  114.         Print Spc(10) + "@0F@Choose Which Files Display Mode You Wish"
  115.         Print Spc(12) + "R=Right L=Left ESC=Quit ENTER=Select"
  116.         Print Spc(10) + String(40, "═")
  117.         Print
  118.         s4463(1) = "Single Line"
  119.         s4463(2) = "Double Line"
  120.         s4463(3) = "Full Display"
  121.         s4463(4) = "ANSI Lister"
  122.         i4538 = Func1266((4))
  123.         If i4538 = 0 Then
  124.           Print
  125.           Print "Thanks Anyway....."
  126.           WaitEnter 
  127.         Else
  128.  1029     If i4538 = 1 Then
  129.             User.FileDisplay = 0
  130.           Else
  131.  1061       If i4538 = 2 Then
  132.               User.FileDisplay = 1
  133.             Else
  134.  1094         If i4538 = 3 Then
  135.                 User.FileDisplay = 2
  136.               Else
  137.  1127           If i4538 = 4 Then
  138.                   User.FileDisplay = 3
  139.                 Else
  140.  1160             Print "You Selected Choice "; i4538
  141.                 End If
  142.               End If
  143.             End If
  144.           End If
  145.         End If
  146.  1176   Print
  147.         ListFiles 1213417543
  148.       End If
  149.  1186
  150.  
  151. '! Called 1 time
  152.       Function Func1266(i65534 As Integer) As Integer
  153.         Dim l65514 As Long
  154.         Dim i65518 As Integer
  155.         Dim s65520 As String
  156.         Dim s65524 As String
  157.         Dim i65528 As Integer
  158.         Dim i65530 As Integer
  159.  
  160.         Func1266 = 0
  161.         i65530 = 1
  162.         Do
  163.  1288     Print Chr(13); "@0F@";
  164.  1330     For i65528 = 1 To i65534 Step 1
  165.             If i65528 = i65530 Then
  166.               Print "@9F@";
  167.             End If
  168.  1407       Print s4463(i65528);
  169.             If i65528 = i65530 Then
  170.               Print "@0F@";
  171.             End If
  172.  1466       Print , ;
  173.           Next
  174.           Do
  175.  1497       s65524 = InKey(1213417543)
  176.           Loop Until s65524 <> ""
  177.           s65520 = UCase(s65524)
  178.           If s65520 = "L" Then
  179.             If i65530 > 1 Then
  180.               i65530 = i65530 - 1
  181.             End If
  182.  1583     Else
  183.  1589       If s65520 = "R" Then
  184.               If i65530 < i65534 Then
  185.                 i65530 = i65530 + 1
  186.               End If
  187.  1640       Else
  188.  1646         If s65520 = Chr(13) Then
  189.                 Func1266 = i65530
  190.                 GoTo 1720
  191.               Else
  192.  1685           If s65520 = Chr(27) Then
  193.                   GoTo 1720
  194.                   GoTo 1714
  195.                 End If
  196.               End If
  197.             End If
  198.           End If
  199.  1714   Loop
  200.  1720   Print
  201.       End Function
  202.  
  203. '! Called 0 times
  204. '!      Function Func1738 As String
  205. '!        Dim s65531 As String*1
  206.  
  207. '!        Do
  208. '! 1747     s65531 = UCase(InKey(1213417543))
  209. '!        Loop Until s65531 > ""
  210. '!        Print s65531;
  211. '!        Func1738 = s65531
  212. '!      End Function
  213.